home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / TOOLPAS2 / NOTRAIL.PAS < prev    next >
Pascal/Delphi Source File  |  1992-04-24  |  284b  |  16 lines
  1.  
  2. var
  3.    ibuf,obuf: array[1..20480] of char;
  4.    line: string;
  5. begin
  6.    settextbuf(input,ibuf);
  7.    settextbuf(output,obuf);
  8.    while not eof do 
  9.    begin
  10.       readln(line);
  11.       while line[length(line)] = ' ' do
  12.          dec(line[0]);
  13.       writeln(line);
  14.    end;
  15. end.
  16.